Class Prop 
 with before [; 
      Examine: return false;
      Search: <<Examine self>>;
      default: print_ret "Dat is in dit verhaal niet belangrijk.";
      ], 
  has scenery;

Class PropSup
 with before [; 
      Examine: return false;
      Search: <<Examine self>>;
      default: 
        if(noun == self){
	 print_ret "Je hoeft je in dit verhaal niet bezig te houden met ", (the) self, ".";
	}
	else return false;
      ], 
  has supporter static;
  
Class Furniture
 with before [;
      Take,Pull,Push,PushDir:
        print (The) self; print " "; IsofZijn(self); " te zwaar.";
      ],
 has  static;

Class Deur
 with react_before [; 
            
	  Go: if(noun.door_dir == self.door_dir()) return self.open_by_myself();
	  Enter: if (noun == self) return self.open_by_myself();
      ],
      open_by_myself [ ks;
      	  if (self has open) rfalse;
          print "(", (the) self, " openend)^";
	  ks = keep_silent; keep_silent = true;
	  <Open self>; keep_silent = ks;
	  if (self hasnt open) rtrue;
      ],
  has static door;